home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / system / mail / mailhand / metamail.z / metamail / bin / showpicture < prev    next >
Encoding:
Text File  |  1992-06-08  |  1.7 KB  |  57 lines
  1. #!/bin/csh -f
  2. # Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
  3. # 
  4. # Permission to use, copy, modify, and distribute this material 
  5. # for any purpose and without fee is hereby granted, provided 
  6. # that the above copyright notice and this permission notice 
  7. # appear in all copies, and that the name of Bellcore not be 
  8. # used in advertising or publicity pertaining to this 
  9. # material without the specific, prior written permission 
  10. # of an authorized representative of Bellcore.  BELLCORE 
  11. # MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY 
  12. # OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS", 
  13. # WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
  14. #
  15. if (! $?X_VIEWER) then
  16. set X_VIEWER="xloadimage -view -quiet -geometry +1+1"
  17. # set X_VIEWER="xv -geometry +1+1"
  18. endif
  19. if ($1 == "-viewer" && $#argv > 1) then
  20.     set X_VIEWER = $2
  21.     shift
  22.     shift
  23. endif
  24.  
  25. if (! $?DISPLAY) then
  26.     echo ""
  27.     echo This message contains a picture, which can currently only be
  28.     echo viewed when running X11.  If you read this message while running
  29.     echo X11, and have your DISPLAY variable set, you will then
  30.     echo be able to see the picture properly.
  31.     echo ""
  32.     echo -n "Do you want to write the picture out to a file [y] ? "
  33.     set ANS=$<
  34.     if ("$ANS" =~ n* ||  "$ANS" =~ N* ) exit 0
  35.     echo -n "File name:"
  36.     set fname=$<
  37.     cp $1 $fname
  38.     if ($status == 0) echo Wrote file $fname
  39.     exit 0
  40. endif
  41.  
  42. echo NOTE:  TO MAKE THE PICTURE WINDOW GO AWAY, JUST TYPE 'q' IN IT.
  43. echo ""
  44. if ($#argv == 0) then
  45.     $X_VIEWER stdin
  46. else
  47. foreach i ($*)
  48.     set dir=$i:h
  49.     if ($dir != $i) then
  50.     # Make the ln sure to work    
  51.     cd $dir
  52.     endif
  53.     ln $i $$.PRESS-q-TO-EXIT 
  54.     $X_VIEWER $$.PRESS-q-TO-EXIT
  55.     rm $$.PRESS-q-TO-EXIT 
  56. endif
  57.